home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / border flash (.txt) next >
Commodore BASIC  |  2022-09-20  |  371b  |  10 lines
  1. 10 rem  border change
  2. 20 rem  by james jones
  3. 30 rem  sys 686 starts; sys 679 ends       :
  4. 40 c=0:fori=679toi+36:read d:poke i,d:c=c+d:next
  5. 50 poke708,45:rem # jiffies till change
  6. 60 if c<>4135 thenprint"error in data statements":stop
  7. 70 sys 686:fori=1to10000:next:sys679
  8. 80 data120,169,49,160,234,208,5,120,169,187,160,2,141,20,3,140,21,3,88,96,206
  9. 90 data203,2,208,8,238,32,208,169,60,141,203,2,76,49,234,1
  10.